home *** CD-ROM | disk | FTP | other *** search
Text File | 1994-07-11 | 1.7 KB | 57 lines | [TEXT/????] |
-
- c
- c valuator values
- c
- integer MOUSEX, MOUSEY
- parameter(MOUSEX = 1, MOUSEY = 2)
- c
- c keyboard and mouse buttons
- c
- integer AKEY, BKEY, CKEY, DKEY, EKEY, FKEY, GKEY, HKEY
- integer IKEY, JKEY, KKEY, LKEY, MKEY, NKEY, OKEY, PKEY
- integer QKEY, RKEY, SKEY, TKEY, UKEY, VKEY, WKEY, XKEY
- integer YKEY, ZKEY
-
- integer ZEROKE, ONEKEY, TWOKEY, THREEK, FOURKE, FIVEKE
- integer SIXKEY, SEVENK, EIGHTK, NINEKE
-
- integer SPACEK, SEMICO, PERIOD, COMMAN, QUOTEK, MINUSK
- integer BACKSL, EQUALK, LEFTBR, RIGHTB
-
- integer BACKSP, TABKEY, LINEFE, RETKEY, DELKEY, ESCKEY
-
- integer KEYBD, MOUSE1, MOUSE2, MOUSE3, LEFTMO, RIGHTM
- integer MIDDLE, MAXDEV
-
- parameter(AKEY = 65, BKEY = 66, CKEY = 67, DKEY = 68)
- parameter(EKEY = 69, FKEY = 70, GKEY = 71, HKEY = 72)
- parameter(IKEY = 73, JKEY = 74, KKEY = 75, LKEY = 76)
- parameter(MKEY = 77, NKEY = 78, OKEY = 79, PKEY = 80)
- parameter(QKEY = 81, RKEY = 82, SKEY = 83, TKEY = 84)
- parameter(UKEY = 85, VKEY = 86, WKEY = 87, XKEY = 88)
- parameter(YKEY = 89, ZKEY = 90)
-
- parameter(ZEROKE = 48, ONEKEY = 49, TWOKEY = 50, THREEK = 51)
- parameter(FOURKE = 52, FIVEKE = 53, SIXKEY = 54, SEVENK = 55)
- parameter(EIGHTK = 56, NINEKE = 57)
-
- parameter(SPACEK = 32, SEMICO = 59, PERIOD = 46, COMMAN = 44)
- parameter(QUOTEK = 39, MINUSK = 45, BACKSL = 92, EQUALK = 61)
- parameter(LEFTBR = 91, RIGHTB = 93)
-
- parameter(BACKSP = 8, TABKEY = 9, LINEFE = 10, RETKEY = 13)
- parameter(DELKEY = 127, ESCKEY = 27)
-
- parameter(KEYBD = 257, MOUSE1 = 258, MOUSE2 = 259, MOUSE3 = 260)
- parameter(LEFTMO = 260, MIDDLE = 259, RIGHTM = 258)
- c
- c miscellany
- c
- integer REDRAW, INPUTC
- parameter(REDRAW = 261, INPUTC = 262)
-
- parameter(MAXDEV = 260)
-
- integer getbut, getval, getpla, qread
- logical qtest
-